home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CODE.SRC < prev    next >
Text File  |  1990-11-03  |  1KB  |  78 lines
  1. ;\|
  2. ;CODE.SRC     Translated from CODE.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CODE     00:11:40 AM  30/ 3/90   |
  4. define(B|A|2||)
  5. define(A|A|2||)
  6. define(N|A|1||)
  7. open(GPSETUP||0|)
  8. find(B|HEADING||)
  9. trap(Q|I)
  10. mount(CODE|S)
  11. co(A|G)
  12. enter(N|"12345X"|||N|Y|N|||N)
  13. if N = ("X") then run("recmenu")
  14. mount(WAIT|S)
  15. A = ("00")
  16. A = (N)
  17. co(A|S)
  18. \STCODE    
  19.  
  20.  
  21.  
  22.  
  23.                              Account Menu
  24.                    ╔═════════════════════════════╗
  25.                    ║    1. &                     ║
  26.                    ║                             ║
  27.                    ║    2. &                     ║
  28.                    ║                             ║
  29.                    ║    3. &                     ║
  30.                    ║                             ║
  31.                    ║    4. &                     ║
  32.                    ║                             ║
  33.                    ║    5. &                     ║
  34.                    ║                             ║
  35.                    ║        Enter number: &      ║
  36.                    ╚═════════════════════════════╝
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43. \
  44. NAME1
  45. NAME2
  46. NAME3
  47. NAME4
  48. NAME5
  49. N
  50. \
  51. \STWAIT    
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.                                PLEASE WAIT
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76. \
  77. \
  78.